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143 PILEN 116 C=O 
144 111G S9= 
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146 1670 C=RKEGN 
14? sr4 RCR 
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151 776 CaC+el 
Se tS4a RTN C 
153 244 C=HFIL 
a4 sfe 

13s 203 

138 1730 CST Ex 
15? 1264 S7= 

io G 1730 CST Ex 
124 1306 HPIL=C 
162 $4 HPLELH 
163 3 CH= 
164 44 HPL=CH 
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166 1104 S35 


QUT AN IDY TO CHECK 


GUT OHLY SET FOR 1.21 
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174 F46 C=C+C 
7S IBYTST 1146 C=0-1 
176 247 ac 
Vy? 254 ORAY? 
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2U2 272 
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204 te WOP 
205 ASP 144 HPL=CH 
206 i¢a5 CH= 

20 z4d0 HPL=CH 
210 1151 CH= 
eid }ué6 C=G 
fiz RAUIE 354 GRAY? 
213 S; CC 
214 Go HOF 
215 1G46 C=C+i 
16 47 8oOc 
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USER FLAG 33 
YES, COHN‘’T G& 
TUEH GN CLOCK 


SET 7 
AH'Y THING 


SET MASTER CLERF 


SCaCasTASt 
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233 G@ HOP 

Zid 1046 C=C+I “4 TIME CUT YET * 

225 1457 GOC navu!2es <« 222) YES 

#36 {F733 GOTO ASPiO « 2319 HOT YET e 
237 RSPS0 {ised FRHS? . FRAME. RETURN SAME AS SERD? 
240 63 GGHet MSP5@ € 2469 YES, HOROQDY CUT THERE 


241 ASP4G 244 C=HPIL 2 READ THE RETURN FRAME 
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CST EX 
25 {2u¢ S7= u 
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UNT - SEND UNTRLE 

Tat - SEND TALKER ADDRESS ¢ TALKER ADCR IH C. a2 

Lab - SEND LISTENER ADDRESS ¢ LISTENER ADDR It U.4> 
Lada - SAME AS LAD EXCEPT LISTENER IN AL 

SHDATA - SEHD SEC.CMND- “SEND DATA" 

TALKER - ADDRESS THE DEVICE AS A TALKER ¢TAb IH Ros 
LISTEN? - ADDRESS THE DEVICE AS A LISTENERCLAD IH Re? 
SRCHFL — MAKE IT A LISTENER AND SEND “SEARCH” 

DTFL&W - SEND SEC.CND - DATA FOLLOW 


CUT = 4.4 SECONDS FOR ALL FOLLOWING COMNMANG FRAMES 


ENTRY TALKER 


ENTRY SiMD 
ENTRY SCMDIS 
ENTRY SiLMibed 
ENTRY SCOMD2z0 
ENTRY  SCMDER 
ENTRY SFRRE 
EHTRY TAD 
ENTRY UNL 
ENTRY UNT 


254 UNT 466 LOI 

255 137 COH etsy 

255 143 £0TU Scnb C 2723 
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260 ry CON airy?’ 
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271 1720 CST EX 
272 SCMD 144 HPL=CH 1 FOSA 
Z73 1¢05 CH= @201 WRITE CMD CONTROL BITS Td Riu 
z74 SFRMNC 1260 HPIL=C 2 WRITE Cld:1] TG Ri 
275 SCMDI5S 106 C=O ‘ INITIALIZE TINER **CALIT I Gis 444 
2?6 SCMDZ0 354 GRAY? FRAME CONES BACK YET 7 4o SE 
277 «167 GOC SCMD30 ¢ 315) YES 
306 0 HOP 
301 0 NOF 
202 GO NOP 
303 b NOP 
304 1046 C=C+1 X TIME OUT YET ? 
U5 171Z GONG SCMB26 ¢ ZTE) NOT YET 
306 SCMDER 1110 S9= { SET ERROR FLAG 
3u7 zd44 C=HPIL 2 RESET FRNS 
316 z72 
sit 203 , 
31Z SCMDZ6 144 HPL=CH 1 TURN GFF FLAG ENABLE 
313 | 1 CH= O00 
314 1740 RTN 3 
315 SCMD30 1154 FRNS? FRAME RETURN NOT @3 SENG ? 
336 i743 GONG SEND26 ¢€ 312) NO, HO TRANIST ERRCR 
S17 14672 GOTO SCMNDER ¢« 366) 
EHTRY SHDATA 
ENTRY DTFLOGW 
ENTRY LISTEN 
ENTRY WRTDAT 
ENTRY SEKSUB 
ENTRY SRURT 
ENTEY DboTO 
320 PTO 450 LDI 
321 FOG CON 300 DDT a 
Zz 1203 GOTO Send ¢ 272) 
322 SRURT 460 LDI 
32 o42 COW e242 
32 1453 GOTO ScmMD ¢ 272) 7 
226 SEKSUEB COSUR- SEEN <:st5- ees Gare pose sare bette 4% flees 
32 
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a3 
35 GODA 
332 OTFLON 460 LDI 
23 “49 CON e249 Gab of LISTEN-DATA FULLGE 
234 doyD 1763 GOTO SEND ¢ 272) 
335 LISTEN 44 HFPL=CH 6 FoDD 
236 1601 CH= @z40 SCLe AS SC ata, TA 
=s7 G44 C=HPIL S GET DEY # 
346 572 
adi £63 
IgE Aa ENTRY LAD 
342 LAD 1730 CST EX 
Raz 21 $5= 1 MAKE IT @ LISTENER Abbe 
344 1736 CST EX 
S45 upe6 1253 GOTO SEMD ¢ 272) 
346 SNDATA 466 LDI | 
se Soo CON e300 ppTf Seb GG TALKER-SEND DATS 
250 1 GOSUE SOND IF 
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WATHRD - SEND THE SEADT FRAME "HAT" 

aePTER SENDING GUT THE NAT, WAIT FOR THE GkaY TO GET SET. 
MEGHWHILE, CHECK THE KEY BOARD. ANY KEY COWN WILL CRUSE 
GBORT THE WAIT LOOP AND RETURN TO MAINFRAME. 

AS S00N AS ORAY SET, RETURN TG CALLING FROGRAM WITHOUT 
READING THE INCOMING FRAME. 


247 ENTRY WHATNRD 


oeA4 
24% 352 NATHRD 144 HPL=CH I WRITE RDY COHTROLL BITS 
26) 253 1205 CH= G2g1 READY Cyn-at 
253 354 244 HPL=CH 2 
252 385 , 601 CH= @140 LoL =CPA SEND NAT 
252 256 ios C=G x 
254 357 WATN10 454 FRAY? AHY FRAME COMES IH YET 7 
255 eg {540 RTH C YES 
zse 6361 itd4é Cc=Cc+t ¥ Vine GUT YET ? 
257 262 547 GOc RDFMER « 436) YES 
252 7263 1743 GOTG  HATNIG ¢ 3573 NOT YET 


NED ~ SEND NOT READY FRAME 
1. READ THE LasST FRANE AHD SAVE IT IN Ré, BUT DON'T ECHO IT. 
2. THEN SEND "NRD", 
3. BETER NOR COMING BACK, RETRANSNIT THE LAST DATA FRAME. 
4. THEH READ EOT/ETE 
NEDID - SAME AS NRS EXCEPT R2 ALREADY IN C.K 
ASSUME + NOTHING 
OUTPUT +: C.X = LAST FRAME 
USES a.&, C, +1 SUB LEVEL 


er} ENTRY NRE 

avid EHTRY WRDC 
VOEY 

27% 254 NRD 1 GOSUB RODFRA READ IN A DATA FRAHE 
274% 86265 0 

2°75 266 NRDBC 466 A=C x SAavE Fo IH A.L# 
276 36? $44 HFL=CH ft WRITE ROY CONTROLL BITS 
ery 370 1205 CH= G24] 
org. 3 466 LDI SEND NRD 

rs ve 102 COW @1 02 

2eu SPS 1 GOSUB SFRAC 
eou 374 u 
28% 37S 244 C=HPIL 2 CET HRD GUT OF IBPUT SUFF 
2o3 3rs ZYvre 

251 of¢ =US 

2Gn 4409 {44 HPL=tH } WRITE COHTROL BITS FOF ATA FRRME 
227% 401 5 cH= GOO) . 

224 492 “46 C=A x GET LAST DATA FRANE BACK FROM 4.8 
Ziq 465 $66 

2e 2 404 {200 HFIL=C 2 PETE ANSMIT LAST DATA FRANE 
226, 495 1 GOs5ue KDDFEM REGO ETOVETE 

Zurn 406 U 

aks, 4u0F 1104 S9= Ci 

225 AIG s46 Al EN G.M= CRST BATA FRAME 

eu $44 1a74 FCF < A,K= ETOGSETE 

23u 412 466 LOI 
247 413 (oo CUOH 97 06 

es. 14 1546 + BED & Iz IT AH ETO * 
eo 445 SVP atl ROFMER © 4359 NO, MUST BE BH ETE 


2o¢ 416 1574 KCR 12 C,%= LAST DATA FRANE 
234 417 i74u RIN 


‘DERI - READ A DATA FRANE 


“NPUT : ASSUME THE DEYICE IS A LISTENER 
IF S89 = 1 WILL RETURN WITHOUT TRYING 
STRUT + CLi:0) = BDRTA BYTE 
IF TINE OUT WILL SET C=O & S9=1 
IF THE FRAME IS NOT A CATA FRAME WILL SET 591 
NOTE: THE DATA FRAME WILL NOT BE ECHO BY THIS ROUTINE 
wsE€p C +0 SUB LEVEL 


307 ENTRY RDDFEM 
36% ENTRY RDFHER 
30% ENTRY C=R2 
3a ENTRY UNHLRSF 
pg 
o312 420 SDOFEN 116 C= Wd INITIALIZE TIME OUT COUNTER 
313 421 BDFMIG 454 FRAY? ANY FRANE CONES IH YET = 
Zid 422 67 BoC PDFMNZO ¢ 434) YES 
315 423 t46 C=C+i ¥# CHECK TIME aut 
3i6 424 1753 GGNC RDFMtG ¢ 4213 | 
317 425 1076 C=C+1 5 
3if | 6426 1733 GOH RDFMIG ¢ 421) 
319 427 732 GOTO RDFMER ¢ 436) TIME OUT 
33 430 RDFMN20 144 C=HPIL 1 ReEab COHTROL BITS 
32n 4234 re 
32. 432 103 
321 $33 1G74 RCR z 
32a 434 776 C=C+C § Id THE FRAME & CATA FRAME 
32% 06435 22 GONC C=R2 ( 4379 YES 
324 436 SOFMER i110 Ss= 1 : as gO ets these teed Mec ak Poh faratan vec Sea taectee eh ecaaes 
3245 4357 Cre g44 C=HPIL 2 READ DATA BITS 
S24 44g z72 ; 
325 441 203 
326 442 1740 RTH 
32? 443 UNLRSF 1 GOSUB UNL 
327 444 i 
325 445 : {723 GoTo c=R2 « 437 


SpATe - SEHD OUT A LATA FRAME AND SET TIME OUT TO 40 SECOHDS 
INPUT : CCI1:07 = DATA BYTE 
OUTPUT + 39 = ¢ IF TIME OUT GR "FRNS" SET 


yseo Lc +0 ZUG LEVEL 

33% ENTRY  SDbATAO 

336 ; ENTRY SGATA 
VARG 


338 446 SDATAG 144 HPL=CH 1 


33% 447 5 CH= @ugt 

R40 450 SPATA 12600 HPIL=C 2 © 

344 453 116 C=0 ld 

342 $52 SDAT10 354 ORAY? 

340 «453 67 GOC SDaTZO ¢ 461) 
345 454 1046 Catt! « 

345 455 1753 GOHC SDATIG ¢ 452) 
344i 456 1u7é Cc=ec+ti § 

34700457 1733 GONC SPATIO ¢ 452) 
34& 986 {S63 GOTO ROFMER ¢ 4369 


eye eS eee te es 


*+e*# se RK HE 


1 SDATZO 1154 FRHS? 
z {64h RTW WC 
3 1533 GoTo RFDFNER ¢ 4363 


340 dé 
3S@ 45 
351 46 
ROTYPE - READ A DEVICE TYPE 

ASSUME THE DEVICE ALREADY ADORESSED AS A TALKER, SEND ROY FRAME 
“SAC" AHD READ ONE DATA BYTE FROM IT. 

IF THE DEVICE SEND MORE THAN GONE BYTE, ONLY THE FIRST BYTE WILL 
BE KEPT. 


YEED ALK, C, SO NaQ PT, +0 SUB LEVEL 
OUTPUT : 
ACeZ:1] STATUS BYTE IF THE DEVICE RESPOND TO SAC 


AC2:1) G IF THE DEVICE NOT PESFOND TO ROY FRAME - "SAC" 
DEVICE TRE nee EEEM CEFINED AS FOLLOW : 

FILBERT - HEX 16 

SPEZIAL.K - HEX 29 

WEELLEBY - HEX 39 

PIL .2G8 - HEX 46 


PLUTER - HEX SO 
364 ENTRY RDTYPE 
379 EHXTRY RDTYFC 
37 ENTRY RTPHRT 
37a 464 RDOTYPE 466 LDI 
$74 FES 143 COW 2143 Sac 
375 #66 FROTYPC 144 HFPL=CH 1} WRITE EDY COHTROL &ITS 
37% +67 1205 CH= @24{ 
370 470 1200 HPIL=C 2 
37% 471 6& A=G # 
3% 472 1616 S6= 1 
go APS RTYP1O 1a6 CHG 4 SET TIMES: 
Sit 474 RTVPZ0 354 ORAY? FRANE RETURN YET 7 
Bon 495 or &OC RTYP20 ¢ 5302) YES 
382 476 o HOP 
Ses 8477 1046 C=t+t «# TIME OUI F 
seaS Fac 126" GOC RDOFMER ¢ 436) VES 
334 561 {733 Guya RTVP2G €¢ 4742 NOT YET 
28y S02 RPTTPs4 t44 C=HFIL 1 SEE WHAT FRAME IS COMMING EFAtr~ 
Ser 563 172 
3e" S504 U3 
oe 805 1274 RCR 13 
ae S86 r446 C=C4C & 
23h Sar Ser? OC C=Re2 € 437) HOT DATA FRAME, READ Re 
39% 510 1 GOLONG RTPACH REAR THE SETURN GAeTA BYTE 
39: 6913 2 
JS7. Siz RITFHRT 1614 YSo=1 FIRST BYTE F 
29:3; S23 $603 GOW RTYPIG ¢ 473) NO, LENNRE IT 
39¢ «614 $056 Aa=t x 
SIs 515 if746 A SL A 
390 S16 1604 St= U 
39" S17 154s Gare RPTYP1Q < 4723 FREAD HEST FRAHE 
GITDEY - GET SELETTED OR DEFAULT DEVICE # 
Logic: 
4 FRIZHDLY LOGE - UNFRIEHDLY FLACC USER FLAF Sa) HOT SET 
Wor Sete DEVICE # OF DEFAULT TO 1 IF NU DEVICE EEEH SELECTED 


2, UHEFRTENDLY UONs 
HEE SELECTED vEVICeE #, GEFAULT IS AN ERROF 
INPUT : RLS => # GF DEVICES IN LOOP 


C.K = START SEARCHING DEVICE # 


REP/KE = START SEARCHING CEYVICE # 
RSP ui = REF/W IF IN FRIENDLY NODE 
= RSR/W +t IF IN UNFRIENOLY NODE 

usfD C, Sb-7, +0 SUB LEVEL 
412 ENTRY GETDEV 

AASO 
414 520 GETDEY 106 C=0 x 
9415 S21 11660 DAo=C EH@ELE CHIF oO 
416 Sez 1670 C=REGN 14 LOAD USER FLAG 
417 S23 274 RCR 5 
#18 524 1230 ST=C 33 = FLAG 32 
41% 325 444 C=HFIL 4 GET SELECTED 
439 526 472 
41% 52? $03 
deg 530 i466 7 ACC STRAT # > 
421 531 33 GONG GTD#20 « S349 NO, END = START 
422 S32 105 C=6 % YES, END # = 
42:5 533 1646 C=#C+1 x 
429 534 GTD#2Z0 1500 HFIL=C 5S 
425 835 {60G HFIL=C 6 
426 536 1740 RIN 
4a? FILLTO @540 

wor oo00 NOP 
S49 GihdG HOP 


HRTDEY - ROUTINE Ta GET NEXT DEVICE # 

LOGIC § 

1, IF IN UNFRIECHDLY 

NOT FOUND, 

2. IF CURRENT SERACHING DEYICE # < # OF DE¥ICES IN LUOCF, 
DEVICE #= CURRENT OEYVICE + 1 

3, !F CURRENT SEARCHING DEYICE # = # OF DEVICES IN LOGR, 
DEVICE #= 1 

4, LF HEXT DEVICE #&# = 

RETURH TO P+i 

IF WEXT DEVICE # NOT EGUAL STARTING 

WITH NEXT PEVICE # IN C.? 


MODE, RETURN TO P+! IMMEDIATELY, 


START SEARCHING DEVICE #, 


DEVICE #, 


cf 


INPUT : H.% = # GF BDEYICES IN THE LCOP 

R5e-W = THE DEVICE # CURRENTLY BEING POLL 

Rok/W = STGRT SEARCHING DEVICE # 
OUTPUT: C.K = HENT SEARCHING DEVICE # 
HWSED a.s, C, SO-F, +0 SUB LEVEL 
445 ENTRY WNHTDEV 
44% ENTRY WNNTDEI 
451 8 HMMYTDEY 1670. CH=REGN 14 = cute: secede te et ee et ee 
452 Ode aed ROR 5 
453 543 Tre Cac4+t §& IN UMFPRIEHDLY MO 
4543 244 1540 RTC YES, DOGH TT GoTo 
43° Sah HHTDET S44 CHHPIL 5 GET CURRENT DEV 
4525 346 afe . 
425 S47 _ 203 
$56 FSG WKTOSS 1046 C=C4+t  & POIHT TO 
a5¢ 254 1406 7 AYO x WRAP SROUNG TRE 
452 35 33 GGHe WYTOSO ¢ SSS0 NOT VE 
42° 32s ith C= A YES, START FROM 


RETUPRW TO 


™ ts 
Jn 


DEVICE #4 


# GF DEVICE 


# +4 


START # = 


DEVICE 


MER T 


NENT 


DEVICE HOT FOUND, 


F+3 
bE ? 
HEAT DB 
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NEXT DEY # 


Pace oY 
tie 


FASO 
{ 
tAb A 


som oe oF ut 
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« 601) 


6568 > 


Ade + 


GETDEV we a 


460 554 iud& C#C+1 ck 
461 S55 HMTOZO 406 A=c he 
462 556 £44 C=HPIL 6 
452 557 672 | 
462 560 &03 | 
467 561 246 aC EX x 
464 562 S00 HPILSt 5 
445 563 1546 7 ARC OX 
466 364 1640 RTN NC, 
467 565 71S GOTO oRTNP+2 
me 
* FHD?TR - FIHD &® FRINTER IN A PIL LOOP 
* FNDOAS - FIND @ CASSETTE IN A LOUF 
* 
* ASSUME CHIP G ENABLE 
* USED 8, C, $O-7, NGO PT, +1 SUB LEVEL 
* OUTPUT : 
* IF PRINTER GR CASSETTE FOUND : 
* 1, RETURN TO Pee 
* 2, HVE DEVICE ADDR IN RSR/W 
* 3, $3 = 8B 
* IF PRINTER OR CASSETTE NGT FOUND : 
* 1, RETURN TP Fe 
* 2, 39 = 1 
*" 
4:7 ENTRY FNDPTR 
43s ENTRY FNDCAS 
das ENTRY RTNP+2 
426 ENTRY FDEV26 
« 
d4qd 448 366 FNOCAS 1 GOSuUB PILER 
452 567 0 
435 570 36 A=0 3 
430 573 576 A=A+t 3 
491 LEGAL 
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CASSET 


« CASSET 


OLA 


gba 


SONV 3D 


SONY ZR 
| CREATE 


GREATF 


— SSTAs 


pe scipreiunaats Maen Seer yee Oe eT er ee 


DRE, Sse 


SLE MGMT a ay 


oon 


LAT veg See PANES ld 1 | 


USSstas 
OSSTcK 
OSsTcK 
GSTHOY 
KSTNOF 
DIGEH! 
DISENT 
DIRK 
DIF 
DSFERE 
DSSERR 
ZRRAD 
ERRNO 
ERRDGE 


ERRUGE 


FINDID 
/FINOID 
, FHOPTR 
FMD? TR 


FNST=EP 
PNSTIR 
GETDEY 
BETDEY 
GTEyYTA 
GTeYTA 
IFC 


RG 


INS 
THA 
THACEX 
INALEA 
THCADA 
THCeis 
IND 
THOS 
IHS TAT 
INSTAT 
LRPDERs 
LASER 
Cost ba 


‘Meta 
- bite sg 


1064 
1065 
1644 
164% 

71 


— 


f 


ho Gl oe 


oot 
ada s 


~5eu 
1205 
13GeE 


me eh we 
wv mE dd 


wt TN dN OO 
if ee TOR oe we ct i OI 


1? 
1744 
7 
6 
1264 
1265 
1766 
1767 
1754 
1457 
73 


#*? 
y 


1112 
1114 


1S5a0 
{5c 


134% 
fide 


aoe 
724 
ie de) 


1¥47 
vo 


ISTIA 
ISTE 
ISTNR 
TST 
OceAL 
- OCAL 
‘aNIG 
{AHNIO 
LATNRD 
IATNRS 
iEWTGS 
{EW TAP 
1OREGS 
iORECS 
qhOO 
YRS 
WRTDEYV 
42 TDEY 
SUT A 
GUTA 
PILEN 
PILE. 


PILPRM © 


PILPRA 
PLERCK 
FLERCK 
FLORES 
FLERE 
FURGEF 


PURGEF © 


FURDH 
FURDN 
PWURUP 
PWURUP 
PDDFRM 
YODRRM 
RGENT 
RODENT 


ROTO 


RDTYPE 
REKDA 
RERDA 
REALK 
REKLK 
RERDP 
ESOP 
READR 
REFOR 
READE 
REBER 
RERDS 
READS 
REKUSE 
RERDSE 
REMOVE 
SENCTE 
REKAME 
2ERAMS 
RTIACH 


RT ACH 


—_—bh oh 


T6exe 


+2 0% Of 


CHRON we HH 
= 


hx fs CH On 
SG ed oe Gt ee eT: 


ts of 


& 


mo 


a 
Uw 
we 


a Ves 


am 


cn ca , 
wee Gl ae me GI) GIG Po ho tO fo i 


ee de OTE tes 


1254. 


tes: 
{327 
1239 


405 
4c6 


35 


Oi Gi 


1337 
1346 


1S??? 
15606 


Sis 


1515 


1470 
1471 


Le ee ea SA eT 


RTFHRT 
RTFHRT 
R*=UB 
R“ SUB 
: SCHEE 
« SCHDEY 
{ SOND 
4 SCND 
| SDATA 
; SDATA 
SpATeC 
SDATANX 
SEC 
SEC 
SEEKN 
SEEKN 
 SEEKR 
SEEKR 
SELECE 
SELECT 
SF51 
SFSI 
SFRC 
SFRMC 
SRURT 
SRURT 
STB ro 
STBTtG 
© STOPIO 
' STOFTaA 
* TAD 
» TAD 
= TALKER 
S TALKE? 
., TRIGER 
- TRIGES 
2 UNL 
UpL 
URL Citk 
» UNLCHS 
LNSEC 
UNSEC 
UNT 
Ur T 
Um TCHS 
ii TCH 
VERIFY 
VERIFY 
Ws TR 
UST 
We TK 
WkIK 
WaTP 
WxTP 
WkTPY 
WeTheY 
WTF 
URTE 
WRTRX 
WRT 














fa say Patan veiee =e pe ariel eet ae rant Jee anette eR A Hil PE tt 
see ety . oe cate bee 


1447 
1450 
i45a 
1454 
1220 
$221 


1415 
1416 


i oh 
J ~.} 
G1 fh 

| 


Cc 


1457 
1460 
1464 
1465 


1466 
1467 


ce 
pw ee, 


1554 


WETS 6 | 


WRTS a 
ZERD 62 
ZERD Bm 


End of VASM assembly 

WORSE CIO ICI SIIOR TOR IOS ICIOIG ICRI CRORE CK HO CR HC dd si aCe ee aCe diated ce fee te 
AC RHOICROIOR CRE CII ICIOIORACIOR ICICI RCE CCCHCROIOIOICHCHCHC HCI ICC CHE HEIR EE HCA ECE OE 
DORIC GICIOROIORSIGE OEIC NCIC CHOI IOICICIORIIOICICICIOROICE HCC HOR HCH HCH HR ei AE ER 


Yasmt RCM ASSEMBLY REY, 6/31A 


OPTICNS: LC 5S 


z FILE: SeEPLZB 
3 -g 216 CCH G2to H 
4 { 61 CON ce 1 
5 4 $a CON ay 
6 3 24 CON God T 
7 4 23 CON G22 bs 
8 S 40 CON ado 
g 6 22 CON @23 & 
10 7 23 CON @2s S 
11 10 1 LON @ul A 
12 11 iS COOH ais M 
13 tz 55 Con. e55 - 
1 ¢} 
if CASSET ENTRY CASSET 
ig 
. 
‘ 38 13 NOTAPE 4 GOSUB FLEREX 
10 14 i 
14 5 ig CON até N 
290 16 17 CON @17 o 
24 17 40 COH w4o 
22 26 15 CON @15 i 
Zi 5 tan wO5 E 
oa ao 4 CON G04 Db 
245 22 1atS CCH @1uI1s | MN 
a8 24 t COLOCHG CERES 
2g 2 2 
* 
a 
* "AR@WRT - SEND TOMNAND - FARTIAL WRITE 
*« OSSUME : CRSSETTE 15 A LISTENER ALREADY 
* SETURH : CRSSETTE aS A TALKER 
* USe> ALC +1 SUB LEVEL 
* 
Za ENTRY PARURT 
2 ENTRY SOMDWT 
se 
3 26 PARHPT 4é0 LDI 
Fe 27 z46 COH G@Edé Sap 06 - FAPRTIAL WRITE 
wy ZO SCMDNT } GOSLB SseomD 
24) 34 a 
THE TOLL GKIHG RCUTINES WILL ESD CASSETTE STATUS AND wart UNTIL 
SASCETTE 15 CUHE WITH LAST UPERATION 


%# F & £ F 
re 


Wait 
ame 


- PEab CASZETTE STATUS UNTIL IT IS DONE WITH LAST 


is 


ee angen ame mectientomeayf ot 


x CFERGTICN AND CHECK ERROR 
| OR 
* USED A,C,S0-7 +1 SUB LEVEL 
* 
aq ENTRY WAITS 
eo ENTRY CSERR 
54 ENTRY CSSTCK 
in ENTRY  TAPERR. 
ne 
Tia 32 WAITS 1 GOSUB CSSTAS READ CASSETTE STATUS 
me 33 0 
55 34 1 GOSUEB PLERCK ERROR CHECK 
5 35 ii 
sé 36 214 7S5=1 STILL BUSY ? 
5? 37 17S? GC WRITS .¢€ 32) YES, LETS WAIT 
32 $0 7SETCK 114 754=1 AMY CASSETTE ERRGR % 
sy 43 1640 RTN HC No : 
+e 
4% yHEY THER S 22 AN ERROR OCCUR, THE LOWER 4 BITS UF THE CASSETTE 
* STATIS IS USED TG FRESEHT AN ERRGR NUMBER AS FOLLOW 
i ©ouai? - ECT Pile eh Rigi Moat ate 4 DRIVE ERROR 
ot 2 sont? — STALL 4.0434 .440a500 DRIVE ERROR 
* 4.140166: ~ DOOR OPEN. cee eee es NO TAPE 
% 5 £09013 - NO TAPE. cee eee eee HO TAPE 
x Fahtti. - NEsl TAPE svi visas. NG TAPE 
* 8 C€FG0H? - TIHE GUT... ec eee TAPE ERROR 
#9 C1001 - RECORD # ERROR. pce ae TAPE ERRGR 
* ff €¢03G% - CHECKEUM ERROR...... TAPE ERRGR 
* 
v2 dz CSERR 14 7S3=1 TAPE ERRUR ? 
wo 43 137 Gac THPERR ¢ 56) YES 
rs 74 44 1uid 7S NG TAPE 7? 
| 75; 4§ 1467 GAC HOTAPE ¢ 133 YES 
L vr 46 1 GOSUB PLERES IS DRIVE ERRGRCGDE Is @ 
4 7H 4? i 
i oe Si 4 CON BO4 b 
4 3 = oS 22 CON @2e Fe 
a ro Se 11 CON Gti I 
| Go S53 zé CON G26 Y 
‘ ai S4 $e0sS CCN ei age E 
- Be Ss 73 GOTO DSERS ¢€ 64d 
: 7 Sé& TAPERF 1 GOSUB PLEREX say TAPE ZRF 
: en OSE a 
; eq 6& 1S CON @15 M 
25 64 S CON aos E 
i DE, te 4 CON God t 
‘ 7 63 1u1S CON @101s Mt 
i fe 64 DEER 1 GOLGNG DEPERP 
{ mt 65 = 
ie 
i UGE HORROR RECHERCHE AR CREE HHS MARE a EE Ee 
 # DIR - CASSETTE DIRECTORY FUNCTION 
: OA NEG a NCAR AC IOI HEIR IIL AC ICICIGAACICIR GEICO ASI RITA RISA CI TEAC ACS CC IRE 
i Ga EHTRY DIR 
: 25 ENTRY DIPRRChM 
: O6, ENTRY DIF 
Cot 
° BG 5 eee CON ved R 
z 3 BF if CGH it I 





oot oS a iT, i 


de tai Gi tai GT id 


-~ 
- 


1h Wt —- © 


— — 
“Ea 


i2 
123 
t22 


124 


125 


ma 
© 


126 
12? 
120 
131 

{32 
133 
{34 
135 
136 
13 
14% 
141 

142 


DIr 


DIRROM 


BIRSO 


DIRIS 


143 | 


144 
143 
{+t 
147 
+156 
151 
iS2 


153 
154 
$35 
+56 
iS? 
pet 
161 
ice 


FILTYP 


oa 
nine Rnoraton bh 


wi eee 
ae 


BRR & 
aan se 


fh © 2 GI ha 
ouG —- & 


mm & 
a = 


40 

40 
122 
105 
1U7 


md 


NN 


S| 


a> 
omWhobtblie-thoo-wwa-Glot*a— 


co mi 


wd Gl fs 


oR Ty 
Ul Gl 
oe 


—_ 


8 
440 


250 
106 
lard 
406 


ana 


fi we 


wae ee en ere 


COW 
GOSUB 


GOSUB 
GOSUR 


CONZ 
CON2 
COZ 
CONZ 
Cane 
COHWZ 
CON2 
CONZ 
CON2 
con] 
ConzZ 
PONS 
CON2 
CON2 
COHS 
LoUWe 
CONZ 
Cone 
CON2 
COoKZ 
COOH 
GOSUB 


COSUB 


GOTO 
GOSUB 


GOSUB 


B04 


CHKCST 


CLA 


BLDAFH 


Ha DPUOMNNMHMAUAGUMN Mh ASAD 


aS 23 
PRT117 


FHDCAS 


CSERR 
SEEKR2 


 RENTPH 


FY 
UH T 


3 
DIRISG 
CLA 


a) 


BLDAFH 


e440 


— 3 


a 
2 
& 


o~ 


on 


YPASC 


oh 


Siz 


& 


OS 


NUOMoa oa oUowhkaQaoane 


Bs 


EE IF CASSETTE THERE & RESDY 
CLEAR ALPHA FEGISTER 


PRINT DIRECTORY HEADER 


BLANKS 


BLANKS 


R 
E 
G 
S 
SEE IF NEEDS TG PREKT * 
LOOK FOR CASSETTE AGAIN 


NO CASETTE FOUND 
SEEK & READ REC.2 


READ ONE FILE ENTRY 
GET FILE NAME 


REPCH END GF DIRECTORY 
YES, ALL DOHE 


S IT A PURGED FILE ? 
YES, READ NEXT ENTRY 
CLEAR ALFHA REGISTER 
GET FILE NANE AGATH 
FUT NAME TO ALFHA FES. 
POD IN ONE BLANK 


C.X= FILE TYFE 
LOAD THE ASCII 


PROG FILE TYFE 
- 


ana" 


pts 
ee 


a he 


1D 


+o ag? 


, 
pee 


my OO 


* 


S ogey akc NE 


On 


° a ¢ 
igs 4 C ah me 


vk 


code 





A 
ial 


cr 


FLIF 


ceLipad 


eapElk 


“Tt 
TT 
= 
oo 
vu 
es 


= 
~ 
tre 
am 


aid? 


2\4? 


244) 


a 4? 


ay4) 


t mt 
Ph 
| 


he 
trh 
te} 


aati? 





* £8 8 4 EE ERR EEE FF 


oad 25d 1 GOSUE BLOAPH 
ett 255 ti 
208 256 340 CO @440 
2ae 257 1703 GoTo PADBLK ¢ 247) 
297 ENTRY TYPASC 
zat 266 TYPASC 660 C=STK 
eee 261 TYPS1G 1460 CHXISA 
218 £62 {O72 C=C+t mM POINT TO 1T ascII CHARS 
211 263 1746 7? CHO & ENO OF TAGLE 7? 
212 264 103 GONC BLDAPC ¢ 274) YES, UNRECOGNIZED TYFE 
213 265 1546 ? AHC x FOUND THE TYPE ? 
2id 266 635 GONC BLDAPC ¢ 274) YES 
215 267 1072 C=C+1 MM SKIP OVER 3 BYTES 
2:6 276 1q72 C=C+! MM 
217 271 {u72 C=C+1 M 
21g : LEGaHL 
o3y 22 {672 GoTo TYPS{0 ¢ 261) 
SLLBPH - BUILD ASCII CHARACTER INTO ALPHA REGISTER 
RaLLING SEQUENTE: 
GOSUB BLDAPH 
CON COME ASCII “CODE> 
CoH 
ICN aa £ EHD GF ASCTI TABLE: 
BLLAPC - SAME AS BLOAPH EXCEFT RETURN ADDR< STK) ALREADY IN C RES 
a3 THE FIRST ASCII CHARACTER 
WEED 4,C,G6,PT +1 SUB LEVEL 
ait ENTRY BLDAPH 
237 ENTRY BLDAPC 
a5 2723 SLDAPH €66 C=S5TK 
24h 274 BLDAPC 1460 CKISA 
244 275 1072 ct=C+{i M 
240 275 Esa STK=« 
245 277 1634 PT= 0 
24s 300 130 Get 
238 301 1766 7 C#O XS LHET CHAR ? 
244, 202 1 SOL APPEND YES 
24k 365 2 
gd7 3he4 1 GOSUB APPEND 
Se7 FOS - of 
246 206 1653 GoTo BLDAPH ¢€ 27233 SEND HEXT CHAR 
25% SOF FRBIN# 1234 PT= 13 
252 316 {@20 LC S 
262 3 436 a= 5 
2ha °° Sie 250 C=N CLlS:c)= FILE SIZE 
255 31s 34 PT= 3 
Se Zi 412 ABC WPT = 4 OF BYTES FOR FROG FILE 
2n7 S315 1576 7? age & IS THIS A PROG FILE 
Sea Fie ter eac BR-CES ¢€ 330) NG 
254 Si7 1té CHO 
wer 32a #éc LOI 


#¥%*+4 8 F 


* 


Mee ee ee ee eee ee ee ieee ee 


2 


Bre tole se eae re 


wee Hea y= 
Wa TR 


2nto S24 Y tCOH ? 
26= 322 646 A=A-T 4 
96% 323 B-kG1IG 1072 C=Ct+t M 
234d 224 7G6 A=A-C # 
26% 325 1763 GONC B-FRG1G ¢ 3232 
266 326 74 ROR 3 
26" 327 $06 A=C i 


B-DEC - CONVERT A BIHARY TQ A S DIGITS DECIMAL NUMBER 
INPUT ALS: 0] (= BINARY 

GUTPUT : ACTZ:&¢] = DECIMAL DIGITS 

USED H,B,C, gee SUB LEVEL 


6 B=A WW 


27% 330 B- dle zl 
v6 AC EX WwW 
1 


225 251 | z 
27h 232 ‘ GOSUB BIHBDG USE "'SENHUM" To GO BINARY -DEC TAL 
276 $333 & 


“GENHMLUM® WILL SNHLY CONVERT THE BINARY IN A.SX TO DECIMAL. BUT OUR 
USTs FILE HAY HE LAFGER THOM 4096 REGSCHEX 1090039, 50 WE HAVE Th 
TAKE CHRE THES CHOSE. 

228 234 & 106 C=0- ‘ 

2et 335 i 1160 Dadg=t ENGG@LE CHIP &@ AGSIN 


282 336 [| {234 FT= 13 
zoe 337 420 LC 4 
o3¢ 340 © ¢36 A=c S 
zey 344i , 236 C=E. 5 CS 46F DICITS 
26 34e 1136 C=A-C & 
Dev 342 8-Bid 1632 a SR OM SHIFT IHW LEADING ZEROS 
2hy R44 | 1176 C=C-1 § MAKE THE HUNBER @ 5S [CIGIT # 
233 345 3 1763 DONC B-DI9 ¢ 343d 
295 B46 20 LO i 
254 34? 420 LC 4 
29; 356 26 LC r 
e953 351 1120 LC 5 
aug 252 az0 LC é C.M= uduad.. 
295 353 112 C=d tT 
205 54 12 A=d WPT 
297 355 34 PT= 3 
25, 756 792 C=e PT GET HIGHEST DIGIT OF CREGINEL @ 
295 357 {$2en SETDEC 
33 260 B-D20 1142 Cat-i PT 
Sut 2H 37 EOC B-DS0 ¢ 3643 
a0c. Gee ERD peA+c MN ADD 4096 FOR & HEB .10GS 
30% 263 1753 CONC B-DEn ¢. 360d 
Soa F644 B-bFO ti4a SETHE 
BEY OTES 1é04 Sos is INIT LEADING FERS FLAC 
Sic 766 FRBITG 216 BEA td 
307 367 460 LOI 
3GE 370 40° CON @40 Ldap A BLANK 
30% 371 {624 PT= i 
Sina Sve 126 G=t 
3:: 373 1534 FT= 12 
312 374 ;z02 37 E#O PT 8 ZERO 3 
313. 375 37 coc PRBI40 ¢ 400) NO 
Zid B78 tela 7SGet - LeabinG ZERA 7 
315 ae 63 Gone PRBIGE ¢ 4059 VES 
3 ity goo TREeIdGod téeia Ssuo= - | 
Bry 4a 1234 FT= is 
212 402 316 CHF td 
20 LC 3 | 


Sta 445 Sec 


Sah 464 130 G=C 

321 3405 FREIGS 1 GOSUB APPEND 

3Zz1 466 0 

S22 6407 156 AB EX Ww 

323 86410 {Fr72 A SL M 

aq it. 676 AsA-1  & OUTPUT S DIGIT ALREADY 7 

$25 412 1543 BONC PRBI(G ¢€ 366) NOT YET 

326 413 1 GGSUB PRT11? SEE IF NEEDS TG PRINT * 

328 414 0 

S2r 6415 1 GasuUeB FNOCAS © LOOK FUR THE CASSETTE AGAIN 

327 416 6 

Ses 417 Gc NCP 

$ey 420 1 GOSUB FCHKKE CHECK KEY BIARD 

320 8423 cr 

33" 422 1 GSOLUNG OIRISG 

3E0 425 & 
Ss 

335 ENTRY FRTI1? 
# 

336 24 PRT? 1 GOSUB LDSsTo 

334 425 Gb 

S38 426 274 ROR ~ 

$3t 427 1730 CST EX 

3v 430 14 733-1 IN MEMNUAL NOLE ? 

3S 4351 1540 RTN C YES, GON’T PRINT 

3? 6432 1730 CST EX 

34 433 1614 750=1 FRINTER FRESENT ¥ 

Sei 0 434 1240 RTN NL NO,DOH’T FRIHT 

3425 435 1645 COW B1S45 GOSUB PRT11 

342 436 674 CCN Ba74 | 

$t20 47 1 GGLONE FLSART PUT RETURE ADR OF “HEREYT it 

S4e 4490 a 

34h FILLTO e442 

oe Go0g HOF 
$42 oog0 HUF 

x 
qt 
A FOACICICIC ICI CICICICIIOICICEICHCICEICICCICIORCI ICICI I CICERO ACE CE Ha HC ECE A CER HF 
* SEG - SECHUIRE A FILE t 
* UNSEG - UNSECUUIRE A FILE i 


ROICICIGIICRCICICICKGRRICICICIGGK HCHO HCCC aC do de ded dod id a i i a eo oie a 
* 


S58 HTRY SEC 
258 ENTRY UNSEC 

* 
soe 44a 2&3 CON eds C 
35° i bf S Cot tS E 
SER 445 eo CCH 23 3 
352 446 %EC 1 £05UE FLESCH 
S22 447 G 
Ser S50 410 S&= 1 
Set $54 113 GUTO SEGHO ¢€ 462) 

*k 
3a? #52 203 CON Bens C 
352 0 «6$53 EO GH Bye E 
we" =F 54 22 CCH G23 3 
Zoe ASS 16 COOH ete H 
S367 S38 25 £0H Get u 
2S2 SSF UHSEC 1 GO5uUB FLESCH SERRCH THE FILE 
327? 440 tu 


uy 


DPS Mo ht 
Cal PO 


ots om oh 


104 1 
G 


UB AGUTFL GET OLD FILE HAMNE TO A 


a | 


ceo ot 
Ht ted ON 





B05U6 AGUTFL GET NEW FILE NAME TO ™ 


26% 461 did Sos {i 
BPu 462 SEGIO 260 C=N 
37t 4483 1574 RCR 12 CLi:03= FILE TYPE 
377 464 S30 St=#ct 
| 373 465 4 53= 0 ASSUME IS UNFROTECT 
: 374 466 414 ?56=1 PROTECTING ? 
: 275 86467 7 23 GONC +2 € 471) NO 
’ 376 4796 1¢@ S$3= j ‘ 
; 37r 47) 1630 C=ST ; 
; 37% 472 1074 RCR 2 
: 373 473 t6e6 N=C | | 
‘ Ban 474 uve C#C+1 S$ Iz a 410 FILE 7? 
i 38: 6475 1 BOLE FLTYER | No, DON’T GO SECURE THER 
; 38: 476 3 | 
i 332 «477 333 GOTO PNOM1O ¢ 5SZ) RESEND THE FILE ENTR® 
io : : ; 
Te Ee HERCULES CEC ot OK Ca a a a a a OR OE AL OOK HE AE Ee Me 
 « RENAME -— REHAME A FILE . # 
8 oan neem eGRHHARMRCEIaEHARRCSRIRncininaibcineinicniaki in adcdsiiok sabia ba ti isa aot 
* 
335 ENTRY  REHANE 
3s4 ENTEY RHAMIO 
a | 
391 F606 . 205 COW @205 E 
292 541 15 CON @15 Ni 
39:5 S02 1 CON eo A 
Bae 593 14 CGH @16 H 
335 SG4 5 cok eos E 
339: 595 22 CH @22 R 
a5" 060 BGG PEHANE 10tG SzZ= 1 SKIP OVER THE OLD NaN IN ARES 
336 56? {1 GOSUB #AoUTI GET THE NEW RANE TRTO A , 
‘ 335 S10 0 
i Se: 511 7é B=0 5 . 
: ai, S12 { GOSUB FLSCHK CHECK DUPLICATE FILE HARE 
: 4900 S914 § 
2 491i Sid B30 C=" 
: 46: Sis 1756 7 CHO Ww Fount THE NAHE + | 
an7 S6 1 GOLC © DUPFL YES, SHY "GUF FL RANE" 
; 497 Si? 3 
: 403 S20 { GOSUB FLSCH? SEMECH THE FILE 
i 401 th 
4ne 1 GOsUR CHKPLCT CHECK FILE FROTECT 
a 
( 
4 
1 
i 
1 
ul 


b= 3 _ bo CORYBF 


RHA fo 
GOLONG REWERT Fo 6S PEWRATE THE FILE ENTRY 


oe 
Caan cn cn en ch a Ob EO i ca ¢ 
(at Gd ted tal cl fre Po fo 


“J 
ha 


‘ i: 
nm 
: 
: 
Fr 

E 


TOT SR Me MOO fC tC TK ORO EH RC eK te te cA: «+ OH RR OE Hike ROK OK 
* (STRS - WRITE REGISTERS SEGUENTIALL 4: 
€ WRITE aA ZEGISTERS BLOCK TG g DaTA FILE STaRTING FROM # 
* WHEEE THE FILE FCINXTE® IS * 
* THPEGT : “M-REG = ibB.cER i. 
* SHEPE Te = STSPTING RPENISTER HUMBER t 
oe SEE = ENDING REGISTER NUNEEFR. “8 


te 1 ie B ecei ersenaes TAA. Ne acpi ts 8 TANS an MAAR ots he * 


* Nao FILE “ANE IS SEQUIRED, WILL VERIFY THE FILE FOINTING +: 
* Is A DATA FILE BEFORE THE WRITING + 
URE EON AE ROI EC te 8 88 ERC de RO CCRC REC ERE UR RR CE dR 
* 

424 ENTRY WRTRX 
* 

426 S35 230 CON e230 * 

$27 S36 22 CON G22 re 

dim Say 24 cCcn Bod T 

42% 340 22 COW GSE F: 

430 541 zr Can G2? ld 

431 S42 WRIRKX 1 GOSUB CHKCST SEE IF CASSETTE READY 

437 F453 0 

4352 44 1 GOSUB SYBREN SAVE BYTE # & READ FILE Entry 

s52 S45 v 

$32 F8d6 { GOSUER FLSHOT SEE IF IT 15 A DATA FILE 

442 B47 t 

436 5§ 1 GOSUB CHKPELT CHECK IF FILE PROTECTED 

43¢@ 551 U 

425 S52 1 GOSUB DFEBDCK CHECK BOUNDARY 

435 553 cr 

436 S54 230 C=65 

437 353 1242 7 CHa PT WAS LAST TINE A WRITE * 

gy8 F56 177 GOC WRRStG € S75) YES, JUST CONTINUE TO WRITE 

q5o S57 1 GOSUB SYVMODE SAVE MODE IN BYTE 233 

439 S46 0 

440. Sé6i 117Q C=PEGH % BACK UF UNE RECORD 

444 S62 1074 RCR 2 C.N=% OF RECORDS FASSED BUF 

44% 563 416 A=0 | 

442 564 26d C#H 

$40 265 $74 RCR 3 C.¥= STARTING RECORD & 

440 FE6 Ed6 A=AtC A.4= CURRENT #ECURD # 

$4¢, LEGAL 

447 Se? 1 GOSUB SEEK 

447 S576 0 

$42 71 1 GOSUB PARWET SEND &MD- PARTIAL WRITE 

dah 57S 0 

440 573 1 GOsUB PSTBP RESTORE BYTE FPOIHTER 

440 S74 t 

457% 575 YRS 233 GOTO SHLROO € 6269 GOTG WRITE THE REGISTERS 
ie 
ACR RCRA Ck ted id deta dec id ec ica EE 
* WRTK - WRITE RESISTERS * 
WRITE A BLOCK OF COCONUT REGISTERS TO A FILE STARTING f 
« FROM THE SEGINNIHG UF THE FILE # 
* INPUT : * 
* ALPHA FES - FILE NAME * 
* SNBOECO - SPECIAL ENTRY + 
eT PUT M.% = # GF REGS TG WRITE ¢ 
t: HOS:3] = STHRTIHG REG ADDRESS « 
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(22s £GS Asa+l  N 
1228 266 AC EX W 
{227 1140 SETHEX 


ee ee ena ete rts rem ae ee ce : Se ear te 


#*s # # 


fo eg dh 


“HS CA GPM wt Sd 


8 SD CO OD 0 DO Se Nd TUNE Od Gn a es oF 


roc GN ON NE SO NNO OOO ol NIN NIUISONND SOMO ood 


cep RD me ce ath i a TN Gwe a 


tees wm hy ees eh ee ech ee 


APP bo fa foe Rene Reo Te foe ie Bo Te ite Re PO Po fe 


RS PO PO RY he 


fe PN 
wm G1 G)] Gi Wo] G) Gt a 


weep eee 
en DCR WIN oO 


hh 


SEM Od A AR No OO ON G 


an Ode OAH OBO Oh GIR Om 


ore 
Sia 
a 
wm | 
el 
oy 
tis] 
se | 
mi | 
ut 4 
Ge 176 
604 120) 
S02 142 
SG 1303 
Gute 1204 
S67 12905 
-60e 1206 
SG% 1207 
Siu 121393 
Bla 13171 
ae Sie 
Si2 1313 
213 1334 
eid 23715 
Gig i316 
SYSREM = 


GOSUB BOBBIN 
RA=C 
C=REGN 
RCR 
R=A+C 
C=M 
Pace 
: GOHC 
#€06 A=A-B 


4 

DATSER 
x 
DARTS 


€12062 





« 37 GOC 12453 
H506 7? at x 
f 27 GoOC DATS45 €12463 
bDATS4U, 6 AO x 
bDATS4& | 546 A=A+t  & 
4610 SO0= 


ud 


3 
4 


AC EX 
RCR 
C=68 


pATSSa iz 


674 RCR 11 
530 N=C 
i t32 C= M 


1 GBOSUB RG-BY# 


a 
i 


(212 B=A WPT 
| 260 C=N 
'. 4 GOSUB FG-BY# 
» 0 
1452 7 aCe WPT 
640 RTN NE 
1614 ?30= 
, 1 BOLC CSEOF 
(260 CaN 
, 406 ASC ¥ 
(630 CaM 

46 ac EX & 
530 Mec 


DATALL © 1 GOsuUB 


FNODEND 
th 
‘416 C= 
1166 GbaDdRSE 
1450 REGN=C 3 
1570 CHREGH 13 
r4 RCE 3 
246 B= ‘¢ 
= 06 
706 A=A-T 
$506 7? A#O & 
1347 Go0c DATSEG (1286) 
1 GGLUMG OATSER 


EQvE CURRENT &YTE PRINTER ANE 
Feot DIRECTORY BUFFER 


A. 4 


END 


COHVERT TO BINARY 


— 


RELATIVE ADDR OF END REG 


A,X=AGS ADDR OF END RES 


REG OVER LIMIT ¥ 


YES 


B.X=<ABS ADDR OF STARTING REG 
# OF REG < o 
# OF REG = 6 ? 
NO 
CHECK EGF : 
C.X= # OF REGS TO READ GR WRITE 
SAVE IN M.X= # OF REGS 
M.M=s 1ST REG ADDR 


# OF REGS To # OF BYTES 


GET # GF BYTE PASSED BRF 
B{4:0}]= TOTAL # GF BYTES FROWN BOF 
ClL3:0)]= # GF REGS OF THE FILE 


WILL CROSS EGUHDBAEY THIS TIE? 
No 
NEED 


YES, 


(7 


TO CHECK EGF ? 

Savy "ENG OF FILE” 
EVErP IH THE FILE 
IN REG! 


WHAT 
FILE S12e 


READ 
A. w= 


ws — 


os 


a 


FIND 


WRITE STARTING FROM BOS 


C.k= REGO 


QR. = # OF REG TO WRITE 
SIZE=0 
NG 


Ferdk 


Fee HR ERE 


¥ 


& Set ££ 


INPSST 3 ob 
A 
A 

GUTPUT : 


S25 

B31 St? 

Soe 1226 

oS} ff 

S3n 14ae 

ee aene) 
“.* Bed 
Ald 
sek 


“sd 


Cc co HO A OO OO OO 
GI GI GE GI G) GI GIG: GIG 


$4 
Tw. MM sy ey oP AM. 


o 
(2 
= 
cm ert etter ewe mee ee 


> 
wet 
oS 
38 
23 
23 
33 
‘ 23 
Se {2a 
Sf a3 
Ban; a4 
a a 24 
S4E 14d 
S843 134 
S45 124 
S4i. {ae 
S847 134 
S44 {S34 
eae 125 
2S" J 35 
gee 135 
351 a 
asi Sd 
S52 125 
e252 125 
S57 135 
S37 i176 
St {ZS 
S354 25 
SYONTR - 
SYENTU - 
Sew 
Sn! 
o6- 
G6? 17&s 
BS4 i284 
S26" Fes 
Bo 1764 
3s {267 


Bie ceo CA wk OS Re eS mr OO OES oO Oo OA OE RI OO 


AST ACCESSED FILE ENTRY FTIR IS SAVED IN DIRESTOEY BLIFFER 
Y EYTE #82506. IF TRIS # = 256, LSS] OFERATICON Was NOT 
REAG OR WRITE TO A DATA FILE 
REG.9C4:2] = CURPENT RECORD # 
REG.301:037 = CURRENT BYTE NUMBER 
G = BYTE #251 IH DIR. BUFR. 
IF G=0 LAST GPERATION GN A DATA FILE Was READ 
IF G=t 07 WRITE 
ENTRY SYBREN . 
SVYEREH 1 GQOSUB REQABR READ CURREHT ADDS 
U 
256 AC EN W C£l3:03= CURRENT FECORD # 
1S74 ECR 12 
Siz C=6 LIP T Cl1:8] = CURRENT BYTE # 
1'S0 MEGN=C Y 
46560 LDI 
sra Cat eu 
{1 GOoSUB SETBPC SET BYTE FTrR Ta 250 
tt 
1 GOSUB RDILPEK SEND CMO- READ LOGF BALK 
U 
tf GGOSUB NATNED SEHD NAT 
0 
1 GOSUEB RODFRM READ LAST FILE ENTRY FTF 
Q 
1206 HPIL=C 2 ECH( 
~46 BE ES a SHAVE ENTRY FIR IN B.x 
1 GOsUE NED RERD NEXT BYTE IN BUFFER Ton 
ct 
{434 PT= 0 
130 G=C SAYE THIS BYTE IN & 
t46 AG ES 4 BET LAST FILE ENTEY FTR 
#60 LpDpf 
3°2 CON 25,0 
1346 7 AKC % ENTRY PTR = 256 * 
1 GOLNC FLT'VER YES, NOT A VALIO ENTRY FTE: 
1 Basuge SETBFL PUT THE ERTEY FPYTR GACK 
tl 
4 LOSUE RDLPEK Sav REROC LOOP Back 
G 
1 GOSUE RENTIG 
G 
1 GOULONG FSTaP 
SAVE FILE ENWNTEY PTR IN DIF BUFR BYTE #250 AHD FEMENSER 
LEST CPERATIGH TG A DATA FILE Wes A RERD Tit BYTE #251 
SANE RAS SYEMHTR EXCEPT LAST OPERATION IS WRITE 
ENTRY SVENTR 
ENTEY SYVEHM TW 
ENTRY SY¥MODE 
TVEHTE {694 Sa u 
22a GaTe S¥YENT €1368 3 . 
S¥EHTWU 1610 So= 1 
aVENT 1 Gosuve RE GAD GET CURRENT TAPE SPDR 
G 


oie i Se en ee ee 


S67 1379 4416 S15 { NOT ONLY SAVE MODE 
SS3 1371 146 AB EX a.% = BYTE @ 

859 1372 460 LOI 

87u 1375 40 CON 32 

87+ 1374 FOG A=A-C OX. BACK UP 32 BYTES 
e7z 1375 206 B=A x 

Qr3 1376 460 LDI 

874 1377 472 CON 250. a 
875 1400 SYENIG GOSUB SETBPC SET BYTE PTR TO 250 





WRLPBK SEND CMD- WRITE LOOP BACK 


fi 
a 
iy 
c= 
7m 


CHLY SAVE MODE + 
SYENZO C1411 YES 
bs 
SDATAG SENT &.P,. OF CURR. FILE ENTRY 


ee 
al, 


I-OQ Gr - 
ov fi 


ta 


wm 
=] 
Naf 
ak 
ey 
o 
4 ON CF 
ta} 
co 
oY 
oe Oo ot ot 
aa 
ta 


Cr 


G 

i 381 1441 SVYEN2ZO 106 C=0 x 

; age 1412 1614 7S0=1 
22 


32% 1413 GOH +o C1415> 
Bad i4ie 1046 C=C+i & 


wot LEGAL 
woe 1415 1 GOLGNG SDATAU 


wy 
wa 
“Ty 
{2 
a 
fi 











fe 
BSS 1417 SYMODE 1404 S1= 0 
4 3S 1420 —- 466 [DiI 
} $58 i421 37a COW 25] | 
4 691 #422 1563 EoTo SVEN 1G €714009 
ao 
i ne RICHI HEGRE lSei ie ret iederdliciiled desciok ler ick tok doketok deg dea a i a ACHE AA ASE SE AEE EES 
= «#-THTCAL= CALCULATE IHTEGER= THT Ca*et + 0.59 
= ok x 
“ #-ilSE Ss H,6,C,0M, PT, SS. 2 SUB LEVELS 
- *= THPUTS : A= eNNN=1 IWOMAK-MIN X= FLOATING POINT CIHTCAL OHL YI 
 : C= <%-MIN? OR C-MIN) CINTCALI 


DEC MODE LINTCAL ONLY 

a-GUTPUTS: CCMO= BINARY NUMBER 

* HEXMODE, DOESNT CHANGE CHIF ENABLE 
5 


302 ENTRY INTCAL 
944 1423 INTCAL 1 GOosuB MP2-195 
SG1 t4ae4 Q 


eCaX T OVERFLOW, ANS UNDERFLO'S ETHS C=G WHICH IS OK, S30 DON'T CHET. 


XCUNN-1 2° CMAN -MIND 


oe 


( 
cco 


foe hee ticle tie te net nt gui 


Gils 
t 347 f425 1 GOSUB OYFLIG NORMALIZE UNDERFLOW TO ¢ 
997 1426 9 " 
2  90G 14287 416 A=C a=€ )CHNN-19°< MAS-NIND? 
5 S66 143% 36 H=0 S TeKE SRSCLUTE VALUE 
i S}a 1431 116 C=4 
: 913 1432 1246 C=-C-1 XK EXP= -1 
‘ 912 1432 Seo LC a C= ¢.5 
: 913 1424 { GOSUE Abe-t0 C= A + C 
P 91% 1455 Ci 
| & CAN OVERFLOW SINCE 8.5 &DDS NOTHING Toe "@ ESS" 
‘ 3715 
S16 1436 216 SS= 1 GET INTEGER FART 
: OW i457 1 GOSUB INTFRC THA "OO +e “God 
i 910 1440 Q 
s 9: 1441 1440 SETHES 


ENTRY CUONYSD 

ENTRY CUONVSC 
f44e CONVSC 406 AH=C 
1443 . 136 C=9 
1444 106 C= 
345 1s72 ? CHD 


_* 
‘ 


rd 
=" 


COFY EXPONENT TO AL 
TAKE ABSOLUTE VSLUE 
INITIALIZE AHSWER TO G 
HRANOLES <EPRO UNNORML #5 


ax 


DR wpa 
p 
‘ 


= 


1463 HGCOTI BOLCHG GOTIHT COHVERT AtSWER TO BIHSRY 


1464 


*.) “J iT, 
Ram By 


Sf 

3e 

Ba 

92 

92 

92 

925 1446 1640 RTH NC 

y2H $447 1526 7 AKG XS HEGATIVE EXPCHEHT? 
927 1450 1340 RTW C YES, ANSWER I5 G06 
92n 1451 1574 RCR {Zz , MOVE $ST OIGIT Ta t.t 
92y 14952 £46 A=A-1 WAS EXPONENT O°? 
93 1453 io? Goc SGOTI €1463) YES 

93: 1454 1274 RC 13 ROTATE NEXT DIG IK 
San 1455 $46 H=A-f & WAS EXPONENT 1? 
9S5 94955 vr GOC SGOOTI ¢€1463)0 YES 

Soa 1457 t374 RKCR 13 MOYE Seo DIGIT 

S35 1466 E46 RS=A-1t K las EXPONENT 27 
“3A 1451 GOLNC ERPRDE NO, NUNBER TOO LARGE 
SFe 1482 

3S 

95 


TONVZO - CONVERTS THE THREE BiGgiITts TO THE LEFT OF THE DECIMAL POINT 
Ih} THE & REGISTER TO A BINARY NUMBER AND LESVES IT Ih LH 

MOVED - SANE EXCEPT IHPUT IS IN C. 

IGNCRES THE sIGN OF x. IF AGS X IS GREATER THAN 999, GIVES "DATA 
-RROR". TF « CONTAINS AN ALFHA STEIHG, GIVE "SLPHA CATA” ERROR, 

IF A NON-HORMALIZCED NUMBER WITH ZERO MANTISSA RETURNS SERG, 


SSSuUMES CHIF @ ENABLED AND HEXMOBDE. 

WEES ALS ANG C, NO PT, WO STS, 1 ADDITIONAL SUE LEVEL <COTINT 
USUALLY EXITS VIR GOTINT IN THE MAINFRAME. 

RO VURHS ANSWER TN Cis 


i i 


354 1485 CONVSD 1 GOSUB ALKA GET &, ERRUR IF ALFHS 
952 1426 0 
3S3 $467 1233 GOTO COHYSC C1442 9 
# 
* 
S54 
ARCHIE IOI ECCI ICR HEHE EHEC CARE SCRE i fade cdo 
*-PCHRKB= CHECK REYBURRD <CPRIHTER FUNCTION > 
4 


m<REITURNS ONLY IF NEITHER THE "RS" KEY NOR THE "ON" KEY IS Cul 
: | 

*-INPUTS: HOHE 

#-SUTRPUTS + NONE 


#eGEE Ss ACN, C, HO PT, NO STS, MO ADOTTIOHAL sue LEVELS 
Ko 
Sse ENTRY PFPOHKKB 
$57 ENTRY PLEBRT 
35% 9470 SCHEKS i7ti4t CHK FE KEY GOGH? 
57! 1471 1440 RTN HE Ho 
Fu Tera $@40 CHKEYS YES, GET “EYCOBDE 
37 y 1473 74 KCR 3 KEYOGRE To Cin 2 
S72 1474 126 C= mS 
gra 1475 §& 8=C 6 KEYCOCE TO %A* 
379 1476 $60 LOT 
Seu 1477 30 CO 2+ HEN 53> “SFF™ KEY 


oe 


& 


9¥6H 1500 1546 7 AHO "GFF" KEY HIT? 
S77 12561 Sr Goc POKEIO ¢€15063 NO 
$7% 1562 1 £B0605UB IF¢C 
gf5 1503 Y 
374 1204 1 GGLONG GFF 
979 1505 2 
9&6 1506 PCKBIUC 4é6 LDI 
93% 150? Zo? CGH 135 HEX S?P= "R/S" KEY 
922 135190 146 7 ARC “ "R/S" KEY HIT? 
9e2 1541 ey Goc GUTPCK <t51i7)> NO 
934 1512 PCKERY ta04 St3= o YES. CLEAR RUNMWING FLAG 
985 1513 {1 GOSUB IFC 
$45 {514 G 
o%e 1515 1 GGOLONG NFRKB RESET THE KEYBOARD 
926 1516 = 
9c" 1517 GUTPCK 1716 RST KB HO, TRY To LEAR THE KEY 
S25 1526 1740 RTH 
ERO RCH IE ROKER CE ICR EOR R ICCI Oho dok dhk tei a eK oe 
SKRNGL - CHECK IF CHARACTER WAS A ANGEL SIGN © ASCII ods 
IF IT IS, REFLACE Ob BY PC 
REASGN FOR THE CHANGE IS THAT, ASCII OD 18 4 ANGEL SIGH IH HELIO: 
BUT PIL PRINTER WILL JJSE Ob ee CeRPRIGE RETURN So WE HAYE TO MOVE 
TrlIZ AHCEL SIGH FRUM 13Gb) TO 124¢7C). 
WEED BLM, N, FT, +6 SUB LEVEL 
$93 ENTRY  CKANGL 
ives ENTRY  CKANGE 
i og? EMTEY CKANGN 
ie 
(00% 1521 CKANGL 206 B=A x SAVE A.K IK B.X 
(604 1822 CKANGS [eg Nec SAVE tC. IH W 
O05 [523 CKANGN 406 s8=C i PUT CX TG A.& 
i@Ge 1524- j434 PT= } 
paur 1925 460 LDI 
io0e 1526 15 ¢0H 13 
(G06 1527 15952 7? AgC WPT I= IT AN SHGEL * 
1G6ty T5390 213 GOHEC CKRAHGS cisSt) Yes 
gyi iSst e44 CHaHPIL 6 
161 1522 5r2 
i971 1533 & 63 
tG@t2 534 1166 C=C-1 “4S 
1073 2235 $74a46 C=C+I “ APE WE TALKIWG TG 7.4. 
Gite 15926 103 GOH CKANGS €154e9 NO 
{g1S 1527 460 LOI 
10te 149 t7é COW 126 
(3 1341 tSS2 7 AFC WP 7 1S THIS THE SIGHS SICH 
1G0$8 i542 $7 60¢ CKANGS £15469 HG 
if; {543 460 LOI 
(Ven Pade 34 COOK 2S REPLACE BY ASCII Cope 
(gz! 154s 6s GATO CKANGS C1535 
RUes 1546 CkAaHGE 260 Cah REZTURE 
dfs {hty OKRENG4S +45 HE ES x RESTORE ALS 
igl4 1556 F740 RTH 
923 1651 CKARNGS 466 LB! 
bods 1S 2 tvs CGH to4 FEPLACE 12 &Y t24 
tU27 oS CKBNGS 4068 A=C oi 
Pies Pats ZeBG C= RESTORE c 
Un 1255 25S AC EN Wr T 


10St 1556 1712 £OTO CKANGH ct54r) 
SEEX - SEEK TO A GIVEN RECORD 

IHPST : ats: 0] = RECORD # 

DUTPUT : CRSSETTE &S A TALKER 

SEEKN - SAME AS SEEK EXCEPT INPUT IS IN NES: 0] 
SEEKRD ~- SEEK TO A GIYEN RECORD AND READ IT 
INPUT : SAME AS SEEK 

OL RUT CASSETTE AS A TALKER 


USED A,C,S0-7 +1] SUB LEVEL 


HEE EEF Re RE 


ia4s 


ENTRY SEEK 

1UEGy ENTRY  SEEKC 

fade ENTRY  SEEKN ! 

1045 ENTEY  SEEKRC 

bogs ENTRY SEEKRD 

ide? ENTRY SEEKRN 

; OE ENTRY SEEKSE 

{ ja> ENTRY SETBPT 

tose ENTRY SETBFL 

1os% - ENVIR SEEKRS 

1G5n ENTRY  SETBEFO 

im53 1557 SEEKRS 460 LDI 

(O52 1560 2 CO. 2 

pose 1561 163 GOTO SEEKRC C151) 

i057 w562 SEEKN 266 C=H ' 
tuSe 1563 $74 RCR 2 

1oS% 1564 SEEKL 416 R=C 

1962 1565 SEEK 04 385 u 

196; 1566 S3 GOTO SEEKIG C157%329 

O52 1547 SEEKRH 260 C=N 

i457 15°04 474 KCR 3 

16054 1571 ZEEKRC 416 ASC 

$a6S (1572 SEEKRD 410 SS= 1 

tO4- 1573 SEEKS 7 GOsSUB LISTEN SEND SEC.TND - “SEER” 
HOS" 15? . tl 

1967 157 450 LDI 

i056 1276 244 COH G24d4 

$e? Torr 1 GOSUE SOND 

(407 1600 a 

ne 256 AC ES SEND RECGEE # CTW BS 
1073 1602 $32 C= M NOEKE SURE FEC. # 4 Ste 
10772 1603S {O74 RCR = 

itrysS iéeud djé A=C 

1074 pe0gs 1 GOUSUBR SDATAE 

1o7r4 606 a 

tors jeder 755 Ac EA 

furs 1619 1574 HCE 12 

ror7 641 1 GOS5ue SDATA SEWD 2HD SYTE GF RECU 
jury 5:2 ii 

ttTe 1ais SEEK 1 GOSUB CSSTAS READ CASSETTE STATUS 
pare fered 0 

vrs Phais 1 GOSUR FLERCK CHECK IF ANY ERRUR 
puro {StS u 

1020 $1617 ej4 7S5=1 STILL BUSY? 

tUsi [ALU {FSP LGC SEER ZO C1623 VES 

ras fess 114 FE4=3 AY ERROR 

rom pase 1 GGLe CSERR 


oy 
ect 


bs 


bos? 1623 3 

1084 1624 SEEK30 414 75821 

iGay 1425 137 GOC SEEK 40 

(0% [h26 SETRPO & ARG x 

60%" 1627 SETBPL 1 GOSUB LISTEN 

10s7 1636 v 

(055 1631 SETBPT 460 LDI 

gas 1632 243 0 G243 
Gc 


wa ZZ 
c 
ca 


SCOMD 


1635 246 AC EX & 
1092 1636 1 GOLONG SDATAE 


Cté6409) 


HEED TO READ * 
YES 
SET BYTE FOTHTER TO 09 


Sab G3- SET BYTE FUINTER 


Sab G2 - READ C TALKER > 


1093 1640 SEEK40 466 LDI 
10Sa T4544 302 CoH @3oe 
fU9S 1442 1 GOLCHG SCNDUT 
Gas 1642 2 
* 
Pa 
* KSTBP - RESTORE BYTE POINTER 
* LAPT REG. 3C2:01 = BYTE POINTER 
* ASSUME: CHIP O EHABLE 
* WEED BLK C +{ SUB LEYEL 
Ne 
itor ENTRY RSTBF 
iite ENTRY  SETBPC 
* 
iiGe 1444 RSTBP 1176 C=PEGN 3 
i147 {245 SETBFC 406 Ast Ww 
rife 1646 16'S GoOTS SETBPL £16272 
“a 
* 
* CNTEYT - COMPUTE # CF BYTES SETWEEN TWO ADDR IN MM FORM 
* INPUT : ALS:0] = STARTING ADDF 
Py BiS:0] = ENDING Abr 
* PT = 3 e 
OUTPUT Ac2:0)] = # OF BYTES BETWEEN THE Thid appr 
* i859 ALZ:07. &.K, C. +0 SUB LEVEL 
“w& 
1749 EHTRY CHTBYT 
*K 
Joi iah 1647 CNTBYT 116 C=O W 
3121 FASC Bud Aep-b FT 
rite 76S] 43 GONC CEYTIOC C1655 
f12k 1482 E46 M=A-1 8 
ive PRES S42 G=h-1 FT 
'e5 7454 CEYTOS €42 R=A-1 FT 
Tite, 1455 CHYTIO 642 Q=a-1 PT 
T127 1456 Sr Ue CEYT20 ¢166Td 
in 1657 i046 C=c+t —_ 


—h et at 


Loo woweerr soem ore ae - oe Sel, Aes 


Th 4686 i743 GOTO cCeyTOsS ¢ 16543 
1}: 1661 CBYTZO ¢€06 A=A-B KO. | 
ie Pese [46 BC EX x 
2ASs. ARGS r46 C=A 
iiFs 1664 4 08. 
ifSeg 1465 7 Sb =C40.. “Ss 
Ti SS [666 ree Geer" & ; 
[176 YAS? 746 tCeC4+C 8 | 
te oe fé6 aC EM ON 


* FUeDH 


- SEND CUNMAND 
COROICIOSIICIOIIOIGIOI RIOR ICICI CI ICI ISIC IR Hei ROR Rice eb ici ieto ok tie ot 


"GROUP FOWER DOWN" 


13 1671 (US A=A-C NX 
1129 1672 $46 A=A+e xX 
{ta 1673 1740 RTN 
¥ 
xe 
* 
* ENBYTS - ROUTINE TO SEND © GIVEN NUMBER GF BYTES IN C-SEG 
* SSSUME - CASSETTE I5 IM MIDOLE OF RECEIVING OaTtaA 
# INPUT - PT = NUMBER OF BYTES TO SEND ~1 
* CCis:Q]= LEFT JUSTIFIED BYTES TO SEND 
* USES A, C, FT +1 SUB LEVEL 
* 
TIER EMTRY SNEYTS 
ory 
72s. P6VS $76 AC Wd 
rims 1676 1 GOSULEB SPATRO 
Tita fare 0 
riTs 1706 thd 7? FT= OQ 
ifS6 t701 1540 RTN C 
1357" 17902 1724 DEC PT 
Vit? Tras 256 AC EX Wd 
T1I129 704 17°93 GoTa SNBYTS ©1674) 
oe 
* 
ACR OTR A I RH CAH OH HH RICH RRR HE 


+ 


ae 


* 


*« 
Vite ENTRY PWRODN 
Eo 
Pyt0 FBS 216. CCN @216 H 
1169 1706 4 CON go4 b 
7176 1707 e2 CON G22 R 
i210 er TON Gzy i 
tH? T7493 zu Con Gay P 
tied TFis PWURDN 1 GOSUB PILEN THRH THE CLOCK OH 
ti"3 TF iF u 
14P?4 VFI4 1 GOSUB PLERCK 
1174 1715 a 
rie PFS 244 HPL=CH 3 
(ite TFT 1 CH= e000 SHUT GFF aulrTo IbY 
ties P20 #60 LOT | 
Ee tre S23 COOH GZiz HES 96 
1E¥Y rZ2Z 1 GOLOHG somo 
1tf9 Tr2S © = 
y 
SR He ECCI CRCICCHCHCECCE CIC HCCHCHORCHCHC CARH HCE TH AHR HCCI CACHE CR HCH CCH TE 1 oko Nee 
*-KiseCh= COWVERT FROM BIH TOGO &CB . 
*-CONVERTS THE BINARY # IN ACK) TO BCD 
* 
*-HCE 3: A, &€35>, C, NO ST, ACTIVE FT, 1 APDITIGNAL SUB LEVEL 
so , : CGENHUM CALLS SUBROUTTIHE > 
#-TNPots: CGINBED] ACK = BINARY #, Acs o= &# OUTPUT DIGITS 
* CGINBDI Ctko= BInRKEY #, Coso= # VUTFPUT DIGITS 
* BOTH ENT&SIES: HEX MODE ‘ 
€ 
e-OUT PUTS: AOMI= CIGIT STRING CLEFT JUSTIFIED), Beno # GUTPUT DIR TIs 
7% HEX MOLE, LOD DISSELEG, RAM DISRELELD 


104 


1203 
1204 
1208 


T2aCe 


ne 
WUE 
120% 


12 


+72 
1725 
1°26 
1727 
F390 
1731 
1732 
1° 3S 


1734 


BRINBDG 1236 
BIHBDC 416 
BIHECD 466 
Zt 

1166 

106 

1760 


ha ~~ 


ENTEY 
ENTRY 
ENTRY 
c=¢ 
R=C 
LDI 
ion 
DabdG=C 
C=% 
PFADH=C 
BOLGHE 


FILLTO 
EJECT 


BIHBDG 
BIHBEC 
BIHBCD 
s 
eu 
‘6 


GEN UP 


GUTPHUT 2.3, OR 4 DIGITS 
IHFUTS TO "A" 


ADDR= CHIP 1 CHONEXISTANT > 
UNSELECT FAM , 


UHSELECT FERIPHERALS 
Calc BCl #, AND # GIGITS BUTRUT 


ee Te a eee -- a * twee ee 


ae 


COMCAST ERE CH ERMC ECUCRCCOCCRECROHERHICAR ROARS ICICI EE ACHECECHSE AECE CeE ie 
# bsukur o- LOGIC FOR HORNAL WAKE UF FROM DEEP SLEEF 


— 

FFD 12145 
T2246 
W2toG 
12? 
rete 
1219 
1214 
Tei4 
eeu 


ros} 


=a. 


ae 


Po Be Be 
+ 


OP Pa PS Pa do RO PN PS Po is 
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